home *** CD-ROM | disk | FTP | other *** search
/ Secret Rendez-vous / Secret Rendez-vous.iso / mac / Starware Movie Player / Starware Movie Player.DXR / 00006_TLBTN.PIC.ls < prev    next >
Encoding:
Text File  |  1995-04-24  |  600 b   |  25 lines
  1. on mouseDown
  2.   global movieStarting, cdAnimating, movieNumber
  3.   puppetSound("mouse down")
  4.   set variable to the clickOn
  5.   set oldLocV to the locV of sprite variable
  6.   set newLocV to oldLocV + 2
  7.   set the locV of sprite variable to newLocV
  8.   set oldLocH to the locH of sprite variable
  9.   set newLocH to oldLocH + 2
  10.   set the locH of sprite variable to newLocH
  11.   repeat while the stillDown
  12.     updateStage()
  13.   end repeat
  14.   sound stop 1
  15.   puppetSound(0)
  16.   updateStage()
  17.   set movieStarting to 1
  18.   set movieNumber to 1
  19.   if cdAnimating = 1 then
  20.     go("Movie1Frame1")
  21.   else
  22.     go("Movie1")
  23.   end if
  24. end
  25.